home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1470
/
3dcontai.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-06-08
|
17KB
|
519 lines
VERSION 4.00
Begin VB.Form frm3DContainers
BorderStyle = 3 'Fixed Dialog
Caption = "VBMax 3D Effects Demo - Containers"
ClientHeight = 5265
ClientLeft = 1050
ClientTop = 1665
ClientWidth = 5565
Height = 5670
Icon = "3DContainers.frx":0000
Left = 990
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5265
ScaleWidth = 5565
ShowInTaskbar = 0 'False
Top = 1320
Width = 5685
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "Close"
Height = 360
Left = 4500
TabIndex = 40
Top = 300
Width = 900
End
Begin VB.Frame Frame1
Caption = "Frames"
Height = 1215
Left = 120
TabIndex = 0
Top = 3960
Width = 5295
Begin VB.PictureBox picLabelContainer
BorderStyle = 0 'None
Height = 915
Left = 120
ScaleHeight = 915
ScaleWidth = 5115
TabIndex = 37
Top = 240
Width = 5115
Begin VB.Label Label1
Caption = "a PictureBox control inside the Frame."
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 0
TabIndex = 39
Top = 480
Width = 4590
End
Begin VB.Label Label1
Caption = "These label controls have been placed on"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 0
TabIndex = 38
Top = 60
Width = 4995
End
End
End
Begin VB.PictureBox picContainer
Height = 2115
Index = 0
Left = 180
ScaleHeight = 2055
ScaleWidth = 4095
TabIndex = 1
Top = 1680
Width = 4155
Begin VB.TextBox txtZip
Height = 285
Index = 0
Left = 2700
TabIndex = 12
Top = 1620
Width = 1275
End
Begin VB.TextBox txtState
Height = 285
Index = 0
Left = 720
TabIndex = 10
Top = 1620
Width = 615
End
Begin VB.TextBox txtCity
Height = 285
Index = 0
Left = 720
TabIndex = 8
Top = 1200
Width = 3255
End
Begin VB.TextBox txtStreet
Height = 285
Index = 0
Left = 720
TabIndex = 6
Top = 780
Width = 3255
End
Begin VB.TextBox txtName
Height = 285
Index = 0
Left = 720
TabIndex = 4
Top = 360
Width = 3255
End
Begin VB.Label lblZip
Caption = "Zip:"
ForeColor = &H00800000&
Height = 195
Index = 0
Left = 2340
TabIndex = 11
Top = 1650
Width = 375
End
Begin VB.Label lblState
Caption = "State:"
ForeColor = &H00800000&
Height = 195
Index = 0
Left = 180
TabIndex = 9
Top = 1650
Width = 555
End
Begin VB.Label lblCity
Caption = "City:"
ForeColor = &H00800000&
Height = 195
Index = 0
Left = 180
TabIndex = 7
Top = 1230
Width = 555
End
Begin VB.Label lblStreet
Caption = "Street:"
ForeColor = &H00800000&
Height = 195
Index = 0
Left = 180
TabIndex = 5
Top = 810
Width = 555
End
Begin VB.Label lblName
Caption = "Name:"
ForeColor = &H00800000&
Height = 195
Index = 0
Left = 180
TabIndex = 3
Top = 405
Width = 555
End
Begin VB.Label lblCaption
BackColor = &H8000000D&
Caption = "Click Me"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 0
Left = 0
TabIndex = 2
Top = 0
Width = 4335
End
End
Begin VB.PictureBox picContainer
Height = 2115
Index = 1
Left = 720
ScaleHeight = 2055
ScaleWidth = 4095
TabIndex = 13
Top = 1380
Width = 4155
Begin VB.TextBox txtName
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 720
TabIndex = 18
Top = 360
Width = 3255
End
Begin VB.TextBox txtStreet
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 720
TabIndex = 17
Top = 780
Width = 3255
End
Begin VB.TextBox txtCity
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 720
TabIndex = 16
Top = 1200
Width = 3255
End
Begin VB.TextBox txtState
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 720
TabIndex = 15
Top = 1620
Width = 615
End
Begin VB.TextBox txtZip
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 2700
TabIndex = 14
Top = 1620
Width = 1275
End
Begin VB.Label lblCaption
BackColor = &H8000000D&
Caption = "Click Me"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 1
Left = 0
TabIndex = 24
Top = 0
Width = 4335
End
Begin VB.Label lblName
Caption = "Name:"
ForeColor = &H000000C0&
Height = 195
Index = 1
Left = 120
TabIndex = 23
Top = 375
Width = 495
End
Begin VB.Label lblStreet
Caption = "Street:"
ForeColor = &H000000C0&
Height = 195
Index = 1
Left = 120
TabIndex = 22
Top = 795
Width = 495
End
Begin VB.Label lblCity
Caption = "City:"
ForeColor = &H000000C0&
Height = 195
Index = 1
Left = 120
TabIndex = 21
Top = 1215
Width = 495
End
Begin VB.Label lblState
Caption = "State:"
ForeColor = &H000000C0&
Height = 195
Index = 1
Left = 120
TabIndex = 20
Top = 1635
Width = 495
End
Begin VB.Label lblZip
Caption = "Zip:"
ForeColor = &H000000C0&
Height = 195
Index = 1
Left = 2280
TabIndex = 19
Top = 1635
Width = 315
End
End
Begin VB.PictureBox picContainer
Height = 2115
Index = 2
Left = 1260
ScaleHeight = 2055
ScaleWidth = 4095
TabIndex = 25
Top = 1080
Width = 4155
Begin VB.TextBox txtName
Height = 285
Index = 2
Left = 840
TabIndex = 30
Top = 360
Width = 3135
End
Begin VB.TextBox txtStreet
Height = 285
Index = 2
Left = 840
TabIndex = 29
Top = 780
Width = 3135
End
Begin VB.TextBox txtCity
Height = 285
Index = 2
Left = 840
TabIndex = 28
Top = 1200
Width = 3135
End
Begin VB.TextBox txtState
Height = 285
Index = 2
Left = 840
TabIndex = 27
Top = 1620
Width = 615
End
Begin VB.TextBox txtZip
Height = 285
Index = 2
Left = 2820
TabIndex = 26
Top = 1620
Width = 1155
End
Begin VB.Label lblCaption
BackColor = &H8000000D&
Caption = "Click Me"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 2
Left = 0
TabIndex = 36
Top = 0
Width = 4335
End
Begin VB.Label lblName
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "Name:"
Height = 195
Index = 2
Left = 120
TabIndex = 35
Top = 375
Width = 615
End
Begin VB.Label lblStreet
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "Street:"
Height = 195
Index = 2
Left = 120
TabIndex = 34
Top = 795
Width = 615
End
Begin VB.Label lblCity
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "City:"
Height = 195
Index = 2
Left = 120
TabIndex = 33
Top = 1215
Width = 615
End
Begin VB.Label lblState
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "State:"
Height = 195
Index = 2
Left = 120
TabIndex = 32
Top = 1635
Width = 615
End
Begin VB.Label lblZip
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "Zip:"
Height = 195
Index = 2
Left = 2280
TabIndex = 31
Top = 1635
Width = 435
End
End
Begin VB.Label Label2
Caption = $"3DContainers.frx":000C
Height = 975
Left = 180
TabIndex = 41
Top = 180
Width = 3975
End
Attribute VB_Name = "frm3DContainers"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D As New C3D
Private Sub Form_Load()
CenterForm Me
With mo3D
Set .Container = picContainer(0)
.Style = gnFLOATING
.Caption lblName(0), gnUSE_CONTROL_FONT
.Caption lblStreet(0), gnUSE_CONTROL_FONT
.Caption lblCity(0), gnUSE_CONTROL_FONT
.Caption lblState(0), gnUSE_CONTROL_FONT
.Caption lblZip(0), gnUSE_CONTROL_FONT
.DropShadow txtName(0)
.DropShadow txtStreet(0)
.DropShadow txtCity(0)
.DropShadow txtState(0)
.DropShadow txtZip(0)
Set .Container = picContainer(1)
.Style = gnRAISED
.Caption lblName(1), gnUSE_CONTROL_FONT
.Caption lblStreet(1), gnUSE_CONTROL_FONT
.Caption lblCity(1), gnUSE_CONTROL_FONT
.Caption lblState(1), gnUSE_CONTROL_FONT
.Caption lblZip(1), gnUSE_CONTROL_FONT
.Border txtName(1)
.Border txtStreet(1)
.Border txtCity(1)
.Border txtState(1)
.Border txtZip(1)
Set .Container = picContainer(2)
.DropShadow lblName(2)
.DropShadow lblStreet(2)
.DropShadow lblCity(2)
.DropShadow lblState(2)
.DropShadow lblZip(2)
Set .Container = picLabelContainer
.Style = gnRAISED
.Caption Label1(0), gnUSE_CONTROL_FONT
.Caption Label1(1), gnUSE_CONTROL_FONT
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set mo3D = Nothing
Set frm3DFrames = Nothing
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub lblCaption_Click(Index As Integer)
picContainer(Index).ZOrder
End Sub
Private Sub picContainer_Click(Index As Integer)
picContainer(Index).ZOrder
End Sub
(.txt)
(.txt)